home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / program / n_b_v203.zip / SOUNDS.DMO < prev    next >
Text File  |  1996-07-04  |  3KB  |  58 lines
  1. $if 0
  2.     ┌──────────────────────────╖                        PowerBASIC v3.20
  3.  ┌──┤          DASoft          ╟──────────────────────┬──────────────────╖
  4.  │  ├──────────────────────────╢                      │ DATE: 1996-02-08 ╟─╖
  5.  │  │ FILE NAME   SOUNDS  .DMO ║                      ╘════════════════─ ║ ║
  6.  │  │                          ║                                         ║ ║
  7.  │  ╘══════════════════════════╝                                         ║ ║
  8.  ╘═╤═════════════════════════════════════════════════════════════════════╝ ║
  9.    ╘═══════════════════════════════════════════════════════════════════════╝
  10. $endif
  11.  
  12. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  13. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  14. $INCLUDE "DAS-NB03.INC"
  15. $INCLUDE "PUBLICS.INC"
  16. COLOR 7, 0
  17. CLS
  18.  
  19. ? "┌───────────────────────────────────────────────────────────────────────
  20. ? "│ Sounds( Which%, Foreground% )
  21. ? "└───────────────────────────────────────────────────────────────────────
  22.  
  23. ? "(02) 1 2 3         (01) Ding-Dong      (44) Phone 2       (31) UpScale3
  24. ? "(18) 10 Bips       (26) Downer 1       (17) Rolling       (65) Vrowr
  25. ? "(12) 3 2 1         (27) Downer 2       (15) Rrrrrr        (56) Waver
  26. ? "(67) Art           (28) Downer 3       (62) Siren         (58) Who1
  27. ? "(10) Big Ben       (14) Drain          (49) Space1        (59) Who2
  28. ? "(16) Bink          (03) Ending Trill 1 (50) Space2        (33) Whoople
  29. ? "(57) Blurp         (07) Ending Trill 2 (52) Spectre       (43) Whung
  30. ? "(42) Bobwhite      (63) Fweet          (69) Squawk        (46) Wolf
  31. ? "(34) Bongee1       (53) Grup1          (21) Tifweet       (22) Zang 1
  32. ? "(35) Bongee2       (54) Grup2          (32) Tweedle       (23) Zang 2
  33. ? "(36) Bongee3       (51) Gurgle         (45) Tweet         (24) Zang 3
  34. ? "(37) Bongee4       (06) Long & Happy   (04) Tweeter       (25) Zang 4
  35. ? "(05) Buzzer        (60) Mew            (38) Uhoh1         (20) Zap
  36. ? "(47) Chang         (09) Na Na Downer   (39) Uhoh2         (66) Zhou
  37. ? "(08) Charge!!      (48) Oh             (40) Uhoh3         (64) Zhoup
  38. ? "(55) Chirp         (13) Phone Soft     (41) Uhoh4
  39. ? "(68) Coo           (11) Phone Tweeter  (29) UpScale1
  40. ? "(19) Cuckoo        (61) Phone 1        (30) UpScale2
  41.  
  42. Foreground% = -1
  43. DO
  44.   LOCATE 25, 1, 1
  45.   PRINT "ENTER ANY 2 DIGITS (00) TO QUIT:    ";
  46.   DO : G$ = INKEY$ : LOOP UNTIL LEN(G$) = 0
  47.   DO
  48.     WHILE NOT INSTAT : WEND
  49.     G$ = G$ + INKEY$
  50.     LOCATE 25, 34 : PRINT G$;
  51.   LOOP UNTIL LEN( G$ ) = 2
  52.   Which% = VAL( G$ )
  53.   IF Which% = 0 THEN EXIT LOOP
  54.   SOUND 37, 0
  55.   IF Which% < 70 THEN Sounds Which%, Foreground%
  56. LOOP
  57.  
  58. CLS